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**Me dois contrôler l'informa- 

■ tion." 
^■r Telle est la terrible phrase 
dite par Marion VANNIER, PDG 
d'Amstrad. 

Dans un long article de notre con- 
frère "Sciences et Vie Micro", la 
PDG française d'Arnstrad 
apporte une seconde précision en 
parlant de nouveaux confrères : 
"Ils sont liés à moi et ils respec- 
tent leurs engagements". 

Ainsi, tout ce que nous avons pu 
dire ou écrire depuis des mois se 
confirme par l'intermédiaire de 
"SVM" dont nul ne niera l'indé- 
pendance. 

Au travers de cette affirmation, 
c'est toute l'indépendance de la 
presse technique dédiée qui est en 
cause. 

Dès lors, quel crédit accorder au 
contenu de la presse que nous ne 
pouvons qualifier "qu'aux or- 
dres" ? Est-il interdit d'écrire ce 
qui ne va pas ? 

Une telle phrase, prononcée dans 
certains milieux provoquerait un 
tollé général. On imagine diffici- 
lement un annonceur dire au 
"Monde", à "l'EDJ" ou autres : 
"Je dois contrôler l'information". 

Pour notre part, n'ayant jamais 
de publicité de ladite marque, 
nous nous sentons en parfaite 
osmose avec nos lecteurs. 

Merci à "SVM" d'avoir une 
notion qui manque de plus en 
plus : le courage d'écrire. 

S. F AUREZ 

Directeur de Publication 
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oici la suite d e l a 
série d'articles sur ' 
l'apprentissage du 
BASIC p\ir de jeunes 
enfants. L'auteur a 
conduit pendant 2 aijiE 
cette exp érience dans - 
" une classe de, CM2. il 
sejjropose^icill ê vous 
faire part, des résultats 
et de la démarche 
suivie. Si vous êtes 
intéressé par le stfjEt, z 
n'hésitez pas à nous '■ _ 
écrire pour alimenter 
cette rubrique. 



PPRENDRE A 
PROGRAMMER 



Remarquas préalables 

('"j 'est certainement la partie la 
plus délicate de la program- 
J motion ; c'est abstrait, très 
abstrait, et avec des enfants de 10 
à 1 2 ans il va tout de même falloir 
rester le plus concret possible. Nous 
aurons pour base l'arithmétique 
(numération et opérations simples). 
Les exemples numériques seront 
choisis avec de petits nombres afin 
de pouvoir suivre pas à pas l'exé- 
cution du programme. En fin de 
séquence, les élèves pourront utiliser 
des grands nombres (ils adorent 
"jongler" avec eux). 
Il (faut arriver à ce que la notion d'at- 
tribution soit assimilée, ça n'est pas 
évident de dire "n = n + 2" (si n est 
4 au départ 4 = 4 + 21) ou "si n= 10 
alors n = 0. Car il y a ambiguïté en 
BASIC entre l'égalité et l'implica- 
tion, le signe étant le même. Pour ma 
part, je fais systématiquement 
employer le terme "devient". (A 
noter que d'autres langages ont un 
signe particulier). 



• Jean 
Re/ngof 



Travaillons sur la variable 

Revenons au programme-compteur 



10 


CLS 


20 


n=0 


■M 


n=n+ 1 


40 


If n>12then 70 


so 


Print n 


60 


Goto 30 


70 


Prlnt "Fin" 



Nous allons faire "travailler" la 
variable n. C'est un nombre. Que 
peut-on faire avec un nombre ? 
additionner, soustraire, multiplier, 
diviser. 

Cherchons donc des extensions à la 
ligne 50 

Print n*10 ou n*5 
Print n+100 ou n + 2 
Print n/2 etc. 

Améliorons la présentation des 
résultats : 
50 Print n, n*10 
et autres exemples 
Compliquons encore 
50 Print n, n*10, n*100 
et autres exemples 
C'est très bien si concurremment en 
classe on a étudié ce genre d'opé- 
rations. 

Essayons ; au lieu de , comme 
séparateur. 
Concluons 
Améliorons encore la présentation 
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BASIC AUCM2... 

POURQUOI PAS ? 



50 Print "n = ";n 
50 Print "n = " ;n,"nxl0 = " ;n'10 
et exerçons-nous à trouver d'autres 
exemples et à les présenter 
agréablement. 

Les élèves essayant de travailler 
avec des divisions vont voir s'afficher 
des nombres décimaux. Ils les ont 
déjà vus au CM1 . Faire reconnaître 
la partie entière, la partie décimale. 
Faire expérimenter la barre -*. au 
lieu de / et arriver à la notion de 
quotient entier et de quotient déci- 
mal. Il y a nécessité absolue de tra- 
vailler en commun avec ce qui est fait 
en classe I 

En expérimentant la soustraction, ils 
vont voir s'afficher des nombres 
négatifs. Je les laisse faire, à eux de 
trouver dans leur tête une significa- 
tion à force d'expérimentations et de 
tâtonnements. 

On s'aperçoit que la machine, grâce 
à sa rapidité et à l'exactitude de ses 
résultats peut être un instrument de 
découvertes. 



Faisons varier la variable 

Egrenons les heures de la journée 

8h je dis "bonjour" 

9h 
lOh 
1 1 h 
12h 
1 3h je dis "bon après-midi" 



19h je dis "bonsoir" 

etc 

22h je dis "bonne nuit" 

24h je repars à 

On peut imaginer d'autres 

exemples, 

(défilé des jours — saisons — année 

nouvelle) 

(défilé des classes 1 1% 10', 9", 7", 

passage au CES) etc. 

Passage à l'abstrait 



On revient au programme compteur : 

10 as 

20 n = 

30 n=n+l 

40 IF n>12 Then n = 
50 Print n 

60 Goto 30 

On expérimente 

Pour les heures que sera la liane 

40? y 

Réponse if n>24 Then n = 

et on peut faire 

41 IF n = 8 Then Print "Bonjour" 

42 IF n= 13 Then Print "Bon après- 
midi"etc. 

Et même faire sonner les heures 
(Print CHRS(7)J 

Faire fonctionner le programme en 
modifiant les paramètres 

- initialisation (I 20) 

- incrémentation (I 30) 



- borne supérieure (I 40) : paramè- 
tres afférents à la condition et à sa 
conséquence. Sur ce canevas, les 
élèves peuvent expérimenter et 
inventer. 

En fin de séquence, ils devraient être 
en état de programmer : 
Donner des suites répétitives telles 
que : 

1234512345... 
ou 

10 20 30 10 20 30... 
et d'autres. 

Remarques 

1 1 y a dans le dernier algorithme étu- 
dié, l'équivalent d'une démarche de 
l'esprit très importante. A savoir : 
une suite de changements quantita- 
tifs aboutit à un changement qualita- 
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LA 

PROGRAMMATION 

DU JOY-STICK 



Miche/ ARCHAMBAUD 



Le JOY-STICK semble être 
l'apanage des jeux 
d'arcades du commerce 
mais nous allons prouver 
deux choses, primo que 
c'est facile d'intégrer son 
emploi dans nos 
programmes en BASIC, 
seconda que ce socle 
d'entrée peut recevoir des 
bidulotrons faits maison, 
d'où des applications 
parfois scientifiques mais 
toujours très originales ; et 
qui n'ont strictement aucun 
rapport avec les génocides 
d'extraterrestres (du moins 
pour le moment...). 

LE FONCTIONNEMENT 
DE L'ENTREE JOY-STICK 

e survolez pas ce paragra- 
V phe sinon vous ne compren- 
X ™ drez pas grand-chose dons 
la suite. Ce n'est pas très compliqué 
mais c'est assez spécial. 
Si vous avez déjà démonté un joy- 
stick, par exemple à cause de quel- 
ques soirées passées sur "DECATH- 
LON", vous avez sans doute été 



déçu en n'y découvrant que des 
petits interrupteurs et rien d'autre. 
Décevant mais aussi rassurant par 
cette extrême simplicité. En effet qui 
d'entre vous ne se sent pas capable 
de mettre des petits fils en court- 
circuit ? Il n'y aura pas de risques de 
gerbes d'étincelles, car il s'agit 
d'une tension continue de 2,4 volts... 
Un de ces fils est dit "le commun", 
les cinq autres correspondent a\i^ 
différentes "positions" ; haut, bas, 
gauche, droite et fire. Quand vous 
tirez le manche en faisant feu vous 
reliez au commun les fils "bas" et 
"fire". Quand vous "montez à gau- 
che" vous reliez au commun les fils 
"haut" et "gauche". OK ? 
Nota électrique : le commun est à 
zéro volt (masse), les autres fils sont 
à + 2,4 V. Un contact de qualité 
médiocre est accepté puisqu'il peut 
être compris entre et 2100 ohms 
(mesures effectuées sur CPC 464). 
Si votre joy-stick est "évolué" il com- 
porte deux autres fils supplémentai- 
res : un "fire n° 2" et un "commun 
n° 2". Ce dernier au cas où il serait 
possible d'y brancher un second joy- 
stick. Un FIRE 2 est rarissime, deux 
FIRE 1 est chose courante. Assez 
d'électricité, et voyons comment cela 
est réceptionné côté ordinateur. 
Le micro se renseigne sur l'état des 
broches de son socle joy-stick, et 
pour connaître le résultat il suffit de 



lui demander par la fonction BASIC 
JOY(0). Cela renvoie un nombre 
entier : zéro c'est l'état repos (aucun 
fil au commun), si >0 il y a un ou 
plusieurs contacts établis. Reste à 
décoder ce nombre pour savoir de 
quels fils il s'agit. 



LA FONCTION JOY 

JOY{0) indique ce qui est relié au 
commun n° 1, c'est le cas général, 
tandis que JOY(l) fait de même pour 
le commun n° 2 (usage rare). 
Ne vous effrayez pas si je vous dis 
que l'on va parler de nombres en 
binaire, car c'est du "binaire prati- 

3ue". Mieux, ce sera pour certains 
'entre vous l'occasion de compren- 
dre enfin ce mode de comptage. De 
toute façon on ne peut foire 
autrement... 

Ces six contacts possibles (les qua- 
tre positions plus les deux tires) cor- 
respondent à six variables, qui ne 
peuvent prendre que les valeurs 
(= en l'air) ou 1 {= contact). Notre 
BASIC les dispose en quelque sorte 
en six colonnes, qui sont DE GAU- 
CHE A DROITE ; (voir figure n° 3). 
fire 2 - fire 1 - droite • gauche - bas 
-haut 

Manche à gauche + fire se traduit 

donc par la combinaison 

"010100". Mais cela ressemble à 

CPC (i* 31 -Février 1988 
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Figure 1 
Brochage des entrées joystick 



un nombre en binaire, et JOY(O) le 
considère comme tel et renvoie la 
valeur 20. En effet essayez PRINT 
BINS(20,6) et vous obtenez 
"010100", Transformation inverse, 
essayez PRINT &X 010100 et vous 
retrouvez 20. La tactique de 
programmation : 

J=JOY{0)J$ = BIN$(J,6) puis on 
examine le contenu de J$ par des 
MID$. Exemple pour tester le con- 
tact "droite" ce sero IF MID$(J$ 3 
l| = "l" THEN... 

Rien de tel qu'une démonstration 
très courte et spectaculaire, tapez 
vite le micro listing n° l, et triturez 
votre joy-stick pour contempler le 
résultat. 

Lo ligne 60 a le droit de vous sur- 
prendre, car pour produire un son si 
l'un des FIRES est pressé on aurait 
pu aussi programmer IF LEFTS(J$,2) 
< > "00" THEN... J'en ai profité 
pour introduire la notion de "poids" 
des bits constituant un nombre 
binaire. Ce "poids" double de 
DROITE A GAUCHE, donc pour nos 
six bits nous avons de gauche à 
droite 32 lô 8 4 2 l. 
La valeur en "décimal" est égale à 
la somme des poids des bits à l. 
Ainsi pour "bas" + "fire l" vous 
lisez 16 + 2 = 18 ; haut + droite 
8+1=9 etc. 

Absolument toutes les notions théo- 
riques ont été incluses dans ce para- 
graphe, que j'espère pas trop indi- 
geste pour certains... Avec celles-ci 
on peut maintenant tout faire. 
CPCn" 31 -Février 1988 



UN PROGRAMME DE DAO 

Attention I Ce programme JOY- 
GRAPH (listing n° 2) n'est pas une 
simple démo, mais un véritable utili- 
taire de dessin assisté par ordinateur 
(DAO), et ce bien qu'il soit très 
court. Ce qu'ii fait est ce qui est 
appelé "fonction PEN" dans les 
coûteux DAO du commerce. 
Il permet de gribouiller n'importe 
quoi sur l'écran à l'aide du joy-stick. 
Un point clignotant simule la position 
du curseur graphique ; en appuyant 
sur FIRE il se transforme entrait con- 
tinu. Comme le déplacement est lent 
on peut faire des tracés précis. Pour 
effacer repasser dessus sans FIRE. A 
tout moment on peut sauvegarder 
l'image en pressant la touche "S", 
et poursuivre le dessin jusqu'à la 
sauvegarde de cette nouvelle ver- 
sion. Les fichiers écrans sont automa- 
tiquement baptisés IMAGE1 
IMAGE2 IMAGÉ3 etc. 
Une action sur la barre d'espace- 
ment vous ramène en mode texte et 
on vous demande alors quelle image 
vous voulez recharger pour modifi- 
cations. Un ENTER "à vide" vous 
fait repartir sur une page graphique 
vierge. 
En somme un utilitaire simple et sou- 



ple d'emploi, mais si court que vous 
ne pourrez résister à l'envie de le 
gadgétïser... 

Toute la "partie utile" se trouve 
dans les lignes 1000 à 1110. Le 
principe est fort simple. Les coordon- 
nées H et V du PLOT de la ligne 
1 090 sont recalculées liqnes 1 060 et 
1 070 : 

H = H + bit "droite" - bit 
"gauche" 

V = V + bit "haut" - bit "bas" 
Le FIRE est testé ligne 1080, d'où 
F = 0ouF=l. La ligne 1090 affiche 
successivement un point en PEN 1, 

Puis un autre au même endroit en 
EN F. Si F = cela donne un point 
d'aspect clignotant, mais si F= 1 le 
point reste affiché à l'écran. C'est 
tout, et c'est suffisant. 
Nota. Ce mini DAO peut traiter 
n'importe quel fichier écran de 17 K, 
quelle que soit son origine. Il est illus- 
tré en MODE 1 mais il fonctionne 
aussi en MODE et MODE 2. 



DEPLACEMENT 
DU CURSEUR TEXTE 

Le programme précédent serait faci- 
lement fransposable en mode texte, 
c'est-à-dire en remplaçant le PLOT 



Brancher sur CPC 



Sur Joystick 1 



I Prises 9 branches : femelle 



î Figure 2 : comment confectionner un raccord pour deux Joysticks 

/ avec une prise femelle + 2 mâles 

/ 





/ 




/ 




/ / 



commun 1 F2 

BIN$(JOY(0).6) -» "0 
"Poids" des bits : 32 



Fonctionnement de la fonction JOY 



"final" par un LOCATE. Cela impli- 
que trois remarques : 

— Il faut éviter des LOCATE hors 
écran (facile). 

— Les déplacements vont être beau- 
coup plus rapides (huit fois), il fau- 
dra ralentir (facile). 

— Trouver une application utile 
(moins facile). 

L'application pratique proposée fut 
le rêve de beaucoup, une SAISIE 
PLEIN ECRAN PAR CLIQUAGE, 
comme avec la célèbre souris du 
MAC INTOSH. Je relève ce défi, et 
avec seulement quelques lignes de 
BASIC. 



Voici le cahier des charges : l'écran 
affiche 80 noms disposés en quatre 
colonnes de 20. Un curseur est 
amené par le joy-stick en face d'un 
nom choisi, puis pression sur PIRE 
pour l'enregistrer en mémoire. 
Aucune position du curseur ne peut 
être ambiguë ou sans effet. Le cur- 



seur se déplacera verticalement par 
ligne et horizontalement par 
COLONNE entière, donc quatre 
positions horizontales possibles. 
Ceci a été réalisé en MODE 1, mais 
il serait enfantin de le transposer en 
MODE 2 avec 1 60 noms ! Les avan- 
tages de cette technique de saisie 
très "professionnelle" sont au nom- 
bre de trois : 

— L'opérateur n'a pas à consulter 
une liste sur papier. 

— Il ne peut pas commettre une 
faute d'orthographe ou entrer un 
nom inconnu. 

La saisie de valeurs est beaucoup 
plus rapide et confortable. 
Pour notre programme de démons- 
tration, voir le LISTING N° 3, il 
aurait été maso de mettre 80 noms 
bidon en DATA, alors nous avons 
rempli un tableau DIM avec 80 nom- 
bres aléatoires. 

Nous retrouvons la même technique 
du programme précédent mais avec 
des "nouveautés" qui concernent 



10 ' JOYDEMO - dema de Joy-stick 

20 CLS 

30 J=JQY(0) :' nombre donne par JOY-STICK 

40 JÏ=BINÎ( J , t.) : ' Image binaire de J sur 

les 6 "bits" de droite 
50 PRIMT USING"tt#" ; J; :PRINT TAB(10);J* 
60 IF J>=lb THEN SOUND 1 ,0,2 ,7: ' Bruit si 

FIRE 
70 GOTO 30 



^ \ 



surtout les déplacements horizon- 
taux du curseur. 

— Parla ligne 3040 le curseur fera 
des bonds de dix cases pour sauter 
d'une colonne à l'autre. Pour aller 
d'une extrémité à l'autre il suffira de 
trois "coups" de joy stick, alors 
qu'en écran graphique il en fallait 
640 ! 

— La ligne 3030 est là pour frei- 
ner : si une commande "droite" ou 
"gauche" est décelée on intercale 
une petite boucle d'attente. 

— Les lignes 3080 et 3090 empê- 
chent de déclarer plus loin un 
LOCATE hors de l'écran (plantage 
assuré). 

Les lignes 3100 et 3110 jouent un 
rôle analogue mais pour le déplace- 
ment vertical. Le curseur est ainsi 
"cadré", il ne peut pas aller ailleurs 
qu'en face d'une des 80 options. Le 
FIRE provoque un GOSUB 4000. 
Ce module 4000 va examiner les 
valeurs H et V lors du FIRE, et faire 
un petit calcul qui va déterminer l'in- 
dice N du tableau DIM auquel cor- 
respond l'option "cliquée". I! comp- 
tabilise et mémorise ces sélections. 
Pour mettre fin à la saisie nous 
aurions pu, comme précédemment, 
utiliser une "touche convenue" mais 
histoire de changer un peu on a 
décidé qu'il fallait choisir obligatoi- 
rement (et arbitrairement) six 
valeurs. (Voirfin de la ligne 3150). 
Ce programme démo n'est qu'une 
base pour vos propres program- 
mes ; vous pouvez l'étoffer en le 
gadgétisant davantage : prévoir la 
mise en inversion vidéo des valeurs 
sélectionnées, la possibilité d'annu- 
ler un choix, présenter en ordre les 
valeurs entrées dans le désordre (et 
sans faire de tri). C'est ultra facile 
mais aujourd'hui ce serait hors 
sujet ; alors cherchez donc un peu... 
NOTA. Au lieu de recalculer H et V 
on pourrait aussi utiliser les comman- 
des curseur PRINT CHR$(8) à 
CHRS(ll), et en cadrant par les 
fonctions VPOS et POS. L'expé- 
rience montre hélas que c'est beau- 
coup plus lourd à programmer, le 
double de lignes BASIC. Donc pas 
de listing-exemple. 



AUTRE CHOSE 
QU'UN JOY-STICK 

Pour une fois laissons la program- 
mation et parlons bricolage. La prise 
femelle à neuf broches s'enfichant 
dans l'entrée joy stick d'un micro est 
une pièce standard, que l'on trouve 
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dans tous les magasins de compo- Certains s'inquiètent déjà en se 
sants électroniques. disant "Ço y est I L'ancien éledro- 



DEBSIN avec JOY-STICK en 



10 ' JOYGRAPH - 
mode graphique 

20 DEFINT A-Z:MODE 1 s BORDER 9 

100 ' LEGENDES 

110 CLS 

120 LOCATE 14,4:PEN 3:PRINT"J Y G R A 

P H":PEN 2:L0CATE 9, 7 : PRINT"Michel Archa 

mbault 12/07" : PEN 1 

130 LOCATE 15,10:PRINT "PIRE = trace" 

140 LOCATE 18,12:PRINT "S = sauvegarde" 

150 LOCATE 13,14:PRINT "ESPACE = fin" 

160 LOCATE 19,19:INPUT"Tapez ENTER (ou Q 

) ",R* 

170 CLS: IF UPPER*(R$)="Q" THEN 500 

180 GOSUB 1000 

300 ' REPRISES 

310 CLS:LOCATE 8,2:PRINT "Vous venez de 

sauvegarder : " :PRINT 

320 FOR N=l TO IM 

330 PRINT TAB(17) ;" IMAGE" ; MIDI ( STR* ( N ) ,2 

) :NEXT:PRINT 

340 INPUT " lequel voulez -vous reprendre 

? ",FIC* 
350 IF FIC*="" THEN 100 
360 CLS:LDAD FIC* 
370 GOSUB 1000: GOTO 300 
500 ' final 

510 BORDER 1:DEFREAL A-Z:CLS 
520 END 
1000 ' TRACE 
1010 ' H , V = positioi 
verticale du point 
1020 H=320:V=200: ' départ au 
1030 C*=UPPER$(INKEY*) ; IF C* 
10 

1040 IF C*="S" THEN GOSUB 2000 
1050 Jt=BIN$(JOY(0) ,5) : ' Lecture du JO 
STICK 
1060 H=H+VAL(MID*(J*,2,1) ) -VAL ( MID* ( J$ 

|1)):' déplacement horizontal ? 

1070 V=V+VAL(MID*(JS,5,1 ) ) -VAL ( MIDS ( J* 

, 1 ) ) : ' de pi acement vertical ? 

1080 F=VAL(LEFT*(J*,1) ) : ' PIRE ? (1 au 

) 

1090 PLOT H,V,1:PLDT H,V,F:' clignote : 

trace 
1100 GOTO 1030 
1110 RETURN 

2000 ' SAUVEGARDE de IMAGEn.BIN 
2010 IM=IM+1 : ' comptage images 
2020 FÏ="IMAGE"+MID*(5TR$( IM) ,2) 
2030 SAVE FÏ,B,&C000,&4000 
2040 RETURN 



hori2onta 



tre 
THEN 11 



£1 



nicien veut remettre son fer à souder 
en chauffe !". Non je ne vais pas 
vous infliger des descriptions de cir- 
cuits électroniques, mais vous sou- 
mettre quelques suggestions qui vont 
donner matière à cogitation chez les 
bricoleurs. 

Rappelons que ces contacts électri- 
ques peuvent être réalisés par inter- 
rupteurs, relais, cellules photoélec- 
triques, transistors à 1 franc, etc. 
pourvu que la résistance de ce con- 
tact soit inférieure à 2000 ohms 
environ. 



gadget gag réalisé en 1986 



1. Un m 

pour enfin gagner^au jeu DECATH- 
LON : le joy-stick fut remplacé par 
un oscillateur à fréquence ajustoble 
qui fermait alternativement les con- 
tacts "gauche" et "droite"... 
(publié dans "Electronique Prati- 
que" n° 95 page 83). 

2. Vous voulez compter le nombre 
de fois que se produit un phénomène 
extérieur quelconque, se traduisant 
bien sûr par la fermeture d'un con- 
tact. Celui-ci pouvant durer plusieurs 
secondes ce sont les TRANSITIONS 
"ouvert à fermé" qu'il faut compter. 
(Cela s'appelle une "bascule"). Une 
boucle de trois lignes de BASIC 
suffira : 

J = JOY(0) 

IF J = 0THEN ETAT = 

IF ETAT = AND J>0 THEN 

K = K+1:ETAT=1 

3. Vous voulez enregistrer la pério- 
dicité d'un phénomène extérieur. 
Dès que celui-ci est décelé par 
JOY(O) < >0 la valeur de TIME à 
cet instant est mis dans un tableau 
DIM. Ultra simple et efficace. Vous 
pouvez ainsi guetter jusqu'à six con- 
tacts, dont les TIME seront mis dans 
un DIM à six colonnes. 

Ces deux derniers exemples ne font 
appel qu'à des montages purement 
électriques donc à la portée de tous. 
On aborde maintenant ceux propo- 
sés aux électroniciens amateurs, 
même débutants. 



INTERFACE ANALOGIQUE 

Cette interface d'entrée permet de 
recevoir la valeur d'une tension con- 
tinue provenant de n'importe quoi. 
Une interface analogique pour 
AMSTRAD CPC coûte une petite for- 
tune, et sa conception exige un 
niveau élevé de connaissances (pour 
préserver la vie du micro...). En 
revanche on ne court aucun risque en 
entrant par la prise JOY-STICK. Le 
principe sera le suivant : 

11 
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10 ' SAISIE au JOY STICK - Michel Archam 
bault 12/B7 

20 DEFINT A-Z;BORDER 9:MDDE 1 
30 DIM V(80) 

40 FDR N=l TD 80: V( N )=RND* 10000 :NEXT i 
50 CLS:LOCATE 2,12:PRINT "Choisissez six 
nombres par le Joy stick" 

60 LOCATE 19,19:INPUT "Tapez ENTER " , R* 

100 ' affiche B0 nombres aléatoires 

110 CL5:N=0 

120 FDR C=2 TD 32 STEP 10 ' 

130 FDR L=2 TO 21:N=N+1 

140 LDCATE C,L:PRINT V(N) 

150 NEXT:IMEXT 

160 GOSUB 3000 

170 CLS 

180 PRINT " ont ete sélectionnes :":PRIN 

T 

190 FOR K=l TD 6:PRINT CH (K ) :NEXT :PRINT 

200 CALL &BB03:' vide buffer clavier 

210 LOCATE 19,19:INPUT "Tapez ENTER ",RÎ 

220 BORDER 1:DEFREAL A-Z-.CLS 

230 END 

3000 'CURSEUR 

3010 H=2:V=2 

3020 J*=BIN*( JOY(0) ,5) 

3030 IF MID*(J*,2,2)<>"00" THEN FOR W=l 

TO 500:NEXT 

3040 H=H+10*VAL(MID*(Jt,2,l) ) -10*VAL (MID 

*(J*,3,1) ) 

3050 V=V-VAL(MID4(J*,5,1) ) +VAL (MÏD* ( J* , 4 

.1) ) 

3060 F=VAL(LEFTI(J$,1) ) : ' FIRE ? 

3070 ' les lignes 3080 a 3110 délimitent 

les déplacements du curseur 
3080 IF H>32 THEN H=32 
3090 IF H<2 THEN H=2 
3100 IF V>21 THEN V=2i 
3110 IF V<2 THEN V=2 
3120 LDCATE H,V:PRINT CHR*(243) 
3130 FDR W=l TO 250-.NEXT 

3140 LOCATE H.VsPRINT " ":' efface curse 
ur 

3150 IF F=l THEN GOSUB 4000: IF K=6 THEN 
3170 

3160 GOTO 3020 
* 3170 RETURN 

4000 ' DECODAGE des CHOIX effectues 

4010 K=K+1: Comptage des nombres chois 

is 

4020 C=INT(H/10): ' colonne -1 

4030 N=20*C-W-1 

4040 LOCATE 11,23:PRINT "vous avez chois 

1». sPRINT USING" ##*8";V(N) ; :PRINT" en" 

;K 

4050 CH(K)=V(N) 

4060 RETURN 



JOY(O) peut délivrer un nombre de 
6 bits, donc de à 63. C'est peu 
mais ce peut être parfois suffisant. Il 
suffirait de recevoir les sorties d'un 
compteur BCD, même le bon vieux 
7490 à 6 francs pièce. Mais on peut 
aussi aller jusqu'à 12 bits, donc de 
à 4095, en ajoutant "à gauche" 
l'image binaire délivrée par JOY(l). 
Soyons plus concis dans ma 
magouille. 

Imaginons que votre circuit électro- 
nique (TTL ou CMOS) aboutisse à 
des compteurs BCD, présentant au 
moins douze sorties binaires, que 
nous appellerons SI à SI 2 ; du clas- 
sique. Il nous faut à présent une com- 
mutation électronique qui fera lire 
S 1 à S6 par JOY(0), puis S7 à S 1 2 
par JOY(l) ; elle sera commandée 
par un oscillateur de quelques Hz. 

— Position A, la masse du circuit est 
reliée au fil "commun 1", les six 
autres fils aux sorties SI à S6. 

— Position B, la masse est reliée au 
"commun 2", les autres fils aux sor- 
ties S7à SI 2. 

Je propose de réaliser ces commu- 
tations par des Cl CMOS 4016 (4 
înters analogiques par Cl). 
Voyons à présent côté programma- 
tion. Oh que c'est simple ! 
J1$ = BIN$(JOY(0),6) 
J2$ = BIN$JOY[1j,6) 
V = VAL("&X"+J2S + J1$) 
Notre revue CPC n'étant pas un 
mensuel d'électronique amateur, je 
ne donnerai pas davantage de 
détails. Mon but était simplement de 
vous mettre sur la voie, après c'est 
à vous de faire ! Inventeurs de génie 
en mal d'idées préparez votre 
aspirine... 



CONCLUSION 

Nous sommes bien loin des jeux 
d'arcades ! A présent en regardant 
un joy-stick branché on peut se 
demander ce qu'il y a de plus inté- 
ressant ; le mancne ou la prise 
d'entrée ? 

Nous avons vu que son utilisation en 
programmation BASIC n'a rien de 
bien sorcier, et qu'elle arrive à point 
pour la conception de certains utili- 
taires en faisant office de souris. 
D'autre part cette prise d'entrée 
gratuite fait une ouverture vers de 
nouveaux domaines, à savoir les 
applications dites "micro en ligne", 
c'est-à-dire réception en continu de 
données extérieures avec traitement 
de celles-ci et enregistrement de ces 
résultats. Tout un programme I 
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■ 3M : celle société annonce un écran plat à cristaux 
liquides se connectant sur tous les compatibles IBM. Ce pro- 
duit est utilisé conjointement avec un rétro -pro/edeur et 
permet, en plaçant l'écran sur la vitre du projecteur, d af- 
ficher une image grand format. L'appa- 
reil est muni de sorties RGB et vidéo- 
composite ainsi que d'un ventilateur ef 
d'un fi/Ire contre (es rayons i nfra- rouges - 



S 



■ SYBEX i 

quents (par . , 
pages) vient de paraître. Ces ouvrages 
traitent de logiciels : Initiation à Word- 
perfect, nouvelle encyclopédie Lotus 
1-2-3 (1260 pages JJ, Lotus 1-2-3 parla 
pratique de langages, introduction a 
Turbo C, introduction a Postcnpt, trois 
systèmes experts en Turbo Pascal, intro- 
duction à la programmation scientifique 
en Turbo PascaT 



• ASAtS : si 
,'ous possédez 
une carte CGA, EGA, VGA ou Hercules 
alors vous pouvez utiliser la version S de 
l'éditeur graphique d'organigrammes : 
"Interactive Easyflow. Ce produit 
importé par ASAIS peut être utilisé avec 
une souris. Il permet de construire fous les 
organigrammes et outres ordinogrammes 
en utilisant des symboles normalisés par 
l'AFNOR. Ce logiciel est disponible ou 
prix de 1850 F HT. 

• l'ERE DES COMPILATIONS : on 

en manque, on en a besoin, les compila- 
tions sont là, Ere ne chôme pas, il y en 
a trois Les cinglés de l'aventure auront 
SRAM 1, Harry el Harry I el 1001 BC 
sur une même disquette, intitulée les "Hits 
de l'aventure" (250 F). Pour tous ceux 
qui ont encore un lecteur de cassettes ; 
Sub, Gutler, Amélie minuit, Mission II, 
Star boy et Duel sont regroupés au sein 
de la compilation Gasofine Software 
(99 F). Enfin, the losl but nol the least Ere 
Hits vous propose le n° 3 de la série com- 
prenant Despofik Design, Stryfe, Ten- 
sions el Contamination (230 F le disque) 




MANUSCRIT4.7 : le voici le trai- 
tement de texte universel compatible 
avec TOUS les modèles d'ordinateurs. 
Cet événement extraordinaire dans le 
domaine du logiciel va-t-il bouleverser 
notre petit monde informatique ? Para- 
doxalement pas du tout, puisque l'éditeur 
porte le nom significatif de Gagsofl. 
D'ailleurs l'ouverture du coffret ne laisse 
pas de doute : on trouve un manuel 
accompagné d'un crayon, d'une gomme 
et d'une règle en plastique souple. Le 
mode d'emploi est clair et conviendra 
aussi bien au débutant qu'à l'utilisateur 
chevronné. Attention, ce produit dange- 
reux est édité par Hitecn Production et 
il est vendu 90 F ! 



■ TITUS : vous voulez travail- 
ler chez un éditeur de logiciels ? 
Titus crée 10 postes de program- 
meurs expérimentés entre 18 et 
25 ans. Envoyez-leur un C.V. 
ainsi qu'une lettre manuscrite 
avec vos moti- 
vations c 
J63, avenue 
des Arts, 
93370 
Montfermeil. 




NOUVELLES ASSOCIATIONS 

Télimak* - Siège social .- C.A.Q. du 
Pefit-Bosquef - 2 13, av. de Montolivet - 
13012 Marseille. 

5YNFO - Lm§ Ami* d> la micro- 
informatique musical* - Siège 
social i 9, rue des Ciseaux - 2IS00 
Guétigny. 

Club micro-informatique du coq 
chantant - Siège social ; halle des 
sports des Bourgognes - 60500 Chantilly. 
Création de logiciels et d'infor- 
mations pédagogique* • Siège 
social .- chez M- Bosc-Ducros (MichelJ - 
7 1 , rue Marignon - 94 1 00 La Varenne. 
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• US GOLD : 

Impossible Mission 
II va bientôt orri- 

Cette deuxième 
mission comporte 
de nombreux piè- 
ges et se déroule 
à l'intérieur de 
5 fours. 
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• GStBMUN GRAPHICS : Alterna- 
tive- World Games est une parodie de 
simulation sportives telles Winter Games 
ou World Games comprenant des épreu- 
ves de lancer de bottes ou de bataille de 
polochons. 

Pour les fans de Walt Disney il existera 
courant mars 88 un logiciel narrant les 
aventures de Mickey, la célèbre souris 
maintenant âgée de 50 ans. Pour fin 
février on annonce la suite de Mosfc et 
Maslc II : Venon Strikes Back : la famille 
cesse de s'agrandir. 



• CRI : nous promet un /eu d'aventu- 
res graphiques de quelques 60 Ko tout 
compressé. Ce programme vous lance à 
la poursuite de l'inventeur du plus fan- 
tastique vaisseau spatial. Ce dernier se 
dirigeant vers les planètes tenues parles 
forces du mal. L'inventeur o décidé d'ex- 
flarter so technologie. Mais en tant que 
défenseur des droits du droïde et de 
l'homme vous ne pouvez laisser (es vilains 
prendre le dessus sur les gentils, na ! 



HÏTE 1988 : chaque année 

l'ANSTJ oraonise d« séjours d'été à dominante 

scientifique pour les i eu nés de 10 à 18 ans. 

L'aspect scientifique abordé touche aux domaines 

de l'oSrrOWipmie, des fusées, de la micro 

informatique et de l'environnement, te tout est 

accompagné d'activités sportives ■. tir à l'arc, 

voile, équifah'oo, randonnée. L'équipe d'animation 

est constituée en moyenne d'un animateur spécialisé 

pour 5 stagiaires. 

tes Centres accueillent au maximum 40 jeunes. 

ANSTJ : Association Nationale Sciences Techniques 

Jeunesse. Palais de la Découverte. 

Adresse: ANSTJ, 17, 

rue Gambeffo, 91 130 Ris Orangis. Tél. 1 69.06.76.03. 




^W ous allons ce mois-ci 

1 v concentrer notre attention 

sur la manipulation des 
chaînes de caractères en Pascal 
Turbo. Comme nous l'avons vu la 
dernière fols, le type STRING 
n'est pas un type du Pascal 
standard, mais il est impiémenté 
sur le Pascal de Borland pour 
simplifier la tâche des 
programmeurs. 



Introduction 



Tout d'abord, quelques mises au point : on appelle chaîne 
toute séquence cle caractères. Le type STRING est un type 
dit sfrucruré, il s'apparente beaucoup au type ARRAY 
(tableau) étudié le mois dernier mais une différence fonda- 
mentale les sépare pourtant : alors que la longueur d'un 
tableau est fixée défini! ivement lors de so déclaration, la lon- 
gueur d'une chaîne est dite dynamique, ce qui veut dire que 
le nombre de caractères qu'elle contient peu varier entre zéro 
(chaîne vide) et une valeur maximale fixée à la déclaration. 
Les caractères qui composent la chaîne sont indexés de un 
à la valeur maximale déclarée. On peut donc y avoir accès 
comme avec n'importe quel tableau, pour les lire ou pour les 
modifier. 



(Exemples : cf. tablei 
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ATTENTION : comme les chaînes c 

mique, il faut distinguer longueur "ma _ 

Pascal permet la détection de dépassement par un index de 
la longueur maximale d'une chaîne si vous lui en donnez l'or- 
dre grâce à une directive de compi/ation (c'est une commande 
optionnelle qui permet de faire effectuer au compilateur cer- 
tains travaux en même temps que la compilation classique). 
En l'occurrence, la directive de compilation ordonnant la véri- 
fication des indices est ,$R + (il faut respecter scrupuleuse- 
ment la syntaxe, majuscules y compris). En effet, lo valeur 
par défaut de cette directive est SK-,, ce qui désactive la 
vérification. 

Mois de toute façon, si vous indexez un caractère au-delà 
de la longueur courante tout en restant dans lo limite autori- 
sée, vous n'obtiendrez pas d'erreur mais un résultat farfelu, 
ce qui est beaucoup plus gênant qui 
debugging 1 



«HAINES/CARACTERES 



Les types STRING et CHAR sont compatibles entre eux : on 

fieut donc affecter une valeur caractère à une variable chaîne 
dans tous les cas), et on peul affecter une valeur chaîne à 
une variable caractère (si la longueur de la chaîne est de un) . 



\ l'heure du 



Chaîne : 


Nom 1 : = 'ABCDEP: 


Accès aux caractères : 


1er caractère : 


Nom_l [1] vaut 'A' 


6e caractère : 


Nom 1 [6] vaut "F 


Modifications : 


Nom 1 [2] -'A'. 




Nom 1 vaut maintenant 'AACDEF' 


Attention : 


Nom 1 [7] : = 'G'; n'est pas permis car 




cette instructions modifie la longueur de 




la chaîne 



DECLARATION D'UNE CHAINE 

Même si le compilateur tolère la création d'une chaîne dans 
la zone de déclaration des variables, on utilisera de préfé- 
rence le passage par la déclaration préalable d'un nouveau 
type. Un type chaîne est défini par un identificateur classi- 
que suivi du signe " = ", du mot-clé STRING suivi de la lon- 
gueur maximale de la chaîne entre crochets. Cette longueur 
est impérativement comprise entre 1 et 255 et doit absolu- 
ment être donnée : il n'y a pas de longueur par défaut. 

Exemple : 

Type Nom = String[20] 

Adresse = Sfring[40 

Code.postal = Strîng[5] 
Vor NomJ , Nom_2 : Nom 

Adresse J : Adresse 

Code_postal_l : Codejsostal 



jrdinateur stocke votre chaîne 
i début pour indiquer la lor 



s plus un octet (cf. tableau 2}. 



L'instruction Longueur : = Ord (Nomj[0]j vous retournera 
donc la longueur courante de la chaîne NomJ. 



OPERATIONS DE BASE 

A ia manière d'une expression mothématique constituée de 
variables, de constantes et d'opérateurs, la manipulation des 
chaînes es) basée sur l'emploi des mêmes composantes. On 
Irouvera donc des constantes chaînes, des variables chaînes 
et des opérateurs spécifiques. 



I Occupation mémoire d'une chaîne (simplifiée-) : 
Si on définit Alphabet du type String[26] et ori donne Alphabet 
= 'ABCDEFG...XYZ' on obtient alors : 

Cases 
! ! 1 I 2 I 3 I 4 ! 5 ! . . ! 25! 26' mémoire 



: 



26! 65! 66' 67 1 



Attention : il est possible de modifier la longueur ci 
d'une chaîne en modifiant le contenu de la 'case' d'indice 
zéro de celle-ci : il ne faut toutefois pas lui donner une valeur 
supéneure à la longueur maximale déclarée I 



■ Affectation d'une chaîne 

On utilise l'opérateur d'affectation déjà connu ": = " pour 
donner à une variable chaîne une valeur quelconque. Pour 
une affectation directe, la voleur doit être entourée de deux 

?uotes. 
xemples : Nom 1 := 'DURAND'; 
NomJ2 '- Nom_l; 
Si vous affectez à une variable une suite de caractères de 
longueur supérieure à la longueur maximale déclarée, Pas- 
cal se chargera de tronquerles caractères supplémentaires 
sans vous retourner d'erreur. 
Exemple : Type Str_4 = String[41; 

Var Chaîne := Str 4; 
Begin 

Chaîne := 'ANTICONSTITUTIONNELLEMENT'; 
Writeln (Chaîne); 
End. 

A l'affichoge, vous obtiendrez ANTI et tout se sera déroulé 
normalement, 
Remarques : 

— a la déclaration, la longueur minimum pour une chaîne 
est d'un caractère. Mais une chaîne peut avoir une longueur 
nulle, elle est alors appelée chaîne vide et se définit par deux 

?uotes accolées, 
xemple : Chaîne_vide := "; 

— Si vous voulez affecter une longueur différente à la chaîne 
(ex: NomJ [0] : = chr [1]} il faudra vous assurer que la valeur 
affectée est bien inférieure à la longueur maximale. 



Les opérateurs relationnels : 



'A' < 'B' 


retoum 


Vrai 


a' < 'B' 




Faux 


VOL' < 'VOLE* 




Vrai 


3' > 'DEUX' 




Faux 


bon' > 'BON' 




Vrai 


vrai' = 'vrai' 




Faux 


exact' - exact' 


l'est ! 





• Concaténation de chaîne 

Elle s'effectue à l'aide de l'opérateur " + " (ou avec la fonc- 
tion CONCAT cf. Fonctions sur les chaînes plus loin). Atten- 
tion à ne pas dépasser 255 caractères de long. 
Exemples: Chaîne := 'ANTI' + 'ANTICONSTITUTION- 
NELLEMENT'; 

Nom_2 := 'Monsieur' + NomJ + 'etc...'; 

• Comparaisons de chaînes 

On utilise les opérateurs relationnels'-;', '>',' = ' Dourcom- 
x chaînes. Le résultat sera bien sûr de type b 



sont évalua 

lo gauche vers la droite sek 
son étant effectuée sur le prei 
deux chaînes. A noter ; si deu 
sont identiques jusqu'au dern 
courte, alors cette dernière s; 
à la première. D'où la conclu 



(Exemples : cf. tableau 3) 



... ..jractère par caractère de 
la table ASCII, fa comporai- 
er caractère différent dans les 
chaînes de longueur différente 
r caractère de le chaîne la plus 
a considérée comme inférieure 
an : deux choînes ne sont éga- 
meur et même contenu. 



PROCEDURES SUR LES CHAINES 

1 1 existe quatre procédures prédéfinies en Pascal Turbo pour 
le traitement des choînes de caractères (cf. tableau 4). Par 



alphabétique : 



n 


Procédures prédéfinies : 




Nom : 


DELETE 




Utilité 


Suppression de caractères dans une chaîne 




Syntaxe 


Delete (Chaîne, position, nbre_car); 


CE. 


Chaîne est de type STRING 




position et nbre_car sont entiers 


es. 


Néant 


Nom 


INSERT 


Utilité 


Insertion de caractères dans une chaîne 


Syntaxe 


Insert (Chjnsere, Ch_cible. position); 


CE 


Chjnsere et Ch_cibie sont de type STRING j 




position est un entier 


es 


Néant 


Nom 


STR 


Utilité 


Conversion de valeurs numériques en chaînes 


Syntaxe 


Str (Valeur, Chaîne); 


CE. 


Valeur est entière ou réelle 




Chaîne est de type STRING 


es 


Néant 


Nom 


VAL 


Utilité 


Conversion de chaînes en valeurs numériques 


Syntaxe 


Val (Chaîne, Valeur, code_err); 


CE. 


Chaîne est de type STRING 




Valeur est entière ou réelle 




code_errest entier 


es. 


Néant 



- ARRIM si NomJ ets du type Strmg[5] 

(les caractères en trop sont tronqués) 

insert (Nom_2,Nom J,7) donnera 'AIMERRR' 

(les chaînes sont concaténées si on considère que la longui 

max. de NomJ est suffisante) 



STR 



Elle convertit une valeur numérique entière ou réelle en une 
chaîne de caractères. On peut utiliser les paramètres de for- 
matage connus pour justifier et présenter les données. 
Exemples : 

5i Val Int î* 1 23 et Val réel : = 3. 1 4E2 
Str(VaLint,Chaîne) donne à Chaîne la valeur '123' 
Str(ValJnt:4,Chaîne) donne à Chaîne la valeur M23' 
(la valeur est justifiée à droite dans un champ de quatre carac- 
tères d'où l'espace devant 123) 
Str(Val.réel:6: 1 , Chaîne) donnera ^ 3 14.0' 
(la voleur est justifiée à droite dans un champ de six chiffres 
avec un chiffre après la virgule, la procédure rajoute un 
espace devant les chiffres) 

• VAL 

Cette procédure permet de convertir une chaîne de caractè- 
res en une valeur numérique entière ou réelle, La chaîne doit 
représenter exactement (e nombre, sans espaces avant ou 
après. Celui-ci peut être entier, réel, sous forme décimale ou 
hexadécimale, en notation scientifique ou classique. Un code 
d'erreur est généré : il contient zéro si l'opération s'est cor- 
rectement effectuée, sinon il contient la position du premier 
caractère de la chaîne qui n'a pu être traduit. 
Exemples : Chaîne := '123' 

Val(Chaîne,Nombre,Code_err) donne à Nombre 
la valeur 123 et à Code_err la valeur 
(Nombre est entier) 



• DELETE 

Elle permet de supprimer dans une chaîne une suite de ce 
tères de longueur et de position donnée, la valeur de la | 
tion devant impérativement se situer entre 1 et 255. Le r 
tat sera affecté à la chaîne de départ. Si la position est s 
rieure à la longueur courante, aucun caractère ne sera 
primé. Si la position est bonne, mais le nombre de cor< 
res à détruire dépasse la taille de lo fin de la chaîne, seuls 
les caractères compris entre la position donnée et la fin de 
lo chaîne seront détruits- 
Exemples : Si NomJ ;= 'BONJOUR' 

Delete (Nom_l,4,3) donnera 'BONR' 

(on a maintenant NomJ valant 'BONR') 

Delete (NomJ,9,2) donnera 'BONJOUR' 

{9 est situé au-delà de la chaîne) 

Delete (NomJ, 3,10) donnera 'BO' 

(10 est supérieur au nombre de caractères à 



■<*) 



IN SERT 



Inverse de la procédure DELETE, INSERT permet comme son 
nom l'indique d'insérer une chaîne de caractères (chaînejnsé- 
rée) dans une autre (chalne_cible) à une position donnée, la 

Cosition devant toujours se situer dans l'intervalle 1-255. Si 
3 position donnée est supérieure à la longueur courante de 
la chaîne_cible, alors (es deux sont concaténées. Si, une fois 
l'insertion effectuée, la longueur totale de la chaîne cible est 
supérieure à sa longueur maximale, alors les caractères en 
trop à droite seront supprimés. 

Exemples : Si Nom 1 := 'AIMER' et NomJ2 : = 'RR' 
Insert (Nom_2,Nom J,2) donnera 
- ARRIMER si Nom 1 et du type String[8] 
(tout rentre sans problème) 



|2J3[ Fonctions prédéfinies : 


Nom 


CONCAT 


Utilité 


Concaténation de chaînes 


Syntaxe 

CE. 

C.S. 


Resuit ; - Concat (Str_1 , Str_2. .... Str_rl); 

Str_1 Slr_n sont de type STRING 

Resuit est de type STRING 


Nom 


COPY 


Utilité 


extrait une chaîne d'une autre 


Syntaxe 
CE. 


Resuit : = Copy (Chaîne, position. nbre_car); 
Chaîne est de type STRING 


C.S. 


position et nbre_car sont des entiers 
Resull est de type STRING 


Nom 


LENGTH 


Utilité 

Syntaxe 

CE. 

es. 


Donne la longueur d'une chaîne 
Long ; Length (Chaîne). 
Chaîne est de type STRING 
Long est un entier 


Nom 


POS 


Utilité 


Recherche d'une chaîne à l'intérieur d'une autre. 


Syntaxe 
CE. 


Position : = pos (Ch_cherche, Ch_ctb!e); 

CH cherche et Ch cible sont de type STRING 


C.S. 


Position est un entier 
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Chaîne !- '3.14E2' 

on obtient alors Nombre à 3 14 et Code err à (No 

réel) 

Chaîne : = '123w5ô' 

le résultat est Nombre: valeur indéfinie 

Code_err: 4 

(w n'est pas un chiffre: erreur !) 



I ONCTIONS SUR LES CHAINES 

1 1 existe également quatre fonctions de traitement de chaînes 
(Cf. tableau 5). Les voici por ordre alphabétique : 

• CONCAT 

Elle a la même utilité que le signe " + " et sert donc à la con- 
caténation de n chaînes. Cette fonction a été conservée car 
CONCAT est une fonction du Pascal standard : portabilité 
oblige ! Les différentes chaînes à ajouter sont séparées par 
des virgules, la longueur totale ne devant bien sûr pas dépas- 
ser 255 caractères. Si cette longueur dépasse la longueur 
maximale de la chaîne à laquelle est affecté le résultat de la 
fonction, les caractères en trop à droite seront tronqués. 
Exemple : Chaîne := 'BONJOUR'; 

Resuit : . Concat(' * * ",Chaîne,' * " ') donnera à la variable- 
chaîne Resuit la valeur '"••BONJOUR""' si Resuit est de 
type String[ 1 5] et retournera ' " * * BON' si Resuit est de type 
String[6]. 

• COPY 

Cette fonction renvoie une sous-chaîne d'un certain nombre 
de caractères à partir d'une position quelconque dans une 
chaîne cible. La position et le nombre de caractères sont des 
valeurs entières, la position devant être dans l'intervalle 
1-255. Si la position est supérieure à la longueur courante 
de la chaîne cible, une chaîne vide est retournée. Si on tente 
de prendre des caractères jusqu'à une position supérieure à 
la longueur courante de la chaîne cible, seuls les caractères 
de la chaîne cible seront retournés. 
Exemples : Si Chaîne := 'BONJOUR' 
Result := Copy(Chaîne,4,3) retournera 'JOU' dans Resuit 
avec Resuit de type String[3] 

Resuit := Copy [Chaîne, , 2) retournera une chaîne vide (on 
adresse plus loin que la longueur courante de la chaîne) 
Resuit : = Copy(Chaine,7, 1 0) donnera à Resuit la valeur 'R' 
(on prend un nombre de caractères supérieur à ce qui reste 
dans la chaîne cible) 

• LENGTH 

Depuis le temps qu'on parle de longueur courante d'une 
chaîne, voici la fonction qui permet de l'obtenir simplement. 
Le résultat de cette fonction est de type entier. 
Remarque : Long ;= Length(Chaîne) est équivalent à 

Long : - Ord (Chaîne [0]) mais la première nota- 
tion est plus simple I 
Exemple ; Si Chaîne : = 'BONJOUR' 

Long ; = Length(Chaîne) donnera la valeur sept 
à Long. 

• POS 

Elle permet la recherche d'une chaîne à l'intérieur d'une autre. 
La fonction retourne un résultat entier correspondant à la posi- 
tion dans la chaîne cible du premier caractère de la chaîne 
recherchée si celle-ci a été trouvée, sinon le résultat est nul. 
Exemple : Si Chaîne :« 'BONJOUR' 

Nbre := PosfJOUR', Chaîne) retourne la voleur4 
Nbre := PosfNUIT', Chaîne) retourne zéro 
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vcoram ttanipuiationjJe_cîiaines ilnput.ûutput!; 
ÎSR+Î { Dn vernie les indices ) 



StiMO = StnngCliJ]; 
Str_30 = Stnnq[30Ji 



5P 



ChaineJ, Chaîne Jï : 3tr_li); 
Adresse : Str_30; 

i : inteqer; 



Begin 
Clrscr; 

{an rentre une chaîne qu on a-r-fecte a Chaine_li 
Write i Entrez un nom; ->: 
Reatiln (Ghaine_l); 
Writeln; 

{Dn peut se permettre des tantaisies avec les chaînes] 
{interdites avec les tableaux. 



% 






[A++ectation directe entre chaînes de h 

Adresse := ChameJ; 

Writeln CChaineJ: ' T Chaine_l : 3û » ; 

Writeln I Adresse : , Adresse:»!; 

Writeln; 

'Concaténation) 

Write < Entrez une deuxième chaîne: ); 

Readln (ChameJÏ!; 

Writeln; 

Adresse := Chame.,1 + Diame_2 + Chaine_l; 

Writeln iAdresse:30>; 

Writeln? 

{Accès au* caractères individuellement) 

Writeln t Appuyé: sur une touche...'!; 

ftepeat Uni il Keypressed; 

Clrscr; 

Adresse := : [initialisation de la chair 

For i := l ta 26 Da 

Begin 
Adresse := Adresse + Chr(64+if; 
Writeln (Adresse); 

End; 



LISTING 


al 


PfBÇFaffl Comparaison ilnput.Qutputi; 




m*: 




Type 




3tr_20 = StnngEAl]; 




UamJ. Nom_2 : Str_20; 




i,long ; Integer; 




Begm 




Clrscr; 




Wnteln ( Entre? les deux chaînes a comparer. 


; 


Write l 1ère chaîne; !j 




Readln IMom_lJ; 




Write l '2eme cname: ); 




Readln iNom_2t; 




Wnteln; 




Wnteln ! Comparaison: 1; 




Wnteln (NornJ, ( ,Nom_2, ' : . ,Mam_l < fiom_2 




Wnteln (Noo_l," = ' ,Nom_2,' : ',Nom_l = Wam_2 


; 


Wnteln; 




[Recopie caract. par caract.; 




long := Length iNom_l): 




For 1 ;:i) to long Do 




fa_2 11] ;= Nom_l tïJj 




Wnteln (NomJ:25,ta_2;25); 




Wnteln ( Egalité" 1 ,Nom_l - iton_2>; 




{Recopie par concaténation) 




Nom J2 : - ; 




Far i := 1 to long Do 




NomJ> i" tan_2 + NamJ [il; 




Writeb (tfan_i:25,Noro_2:25>; 




Wnteln l'Egalité"' ,Nom_l = Nam__2); 





I N G 3 







'là 



Program Essai_des_procBdurB5_et fonctions ilnput,ûutput)ï 



StrJO = Stnng [101; 



Nob_1, Nom_2 ; StrJO; 

i,det,pcsit,,long : Integer; 



Clrser; 

Write ( Entre: votre chaîne: ); 

Readln iNomj;; 

long := Length (Nom_l); 

Wnteln; 

Wnteln ('On détruit ! '/; 
Write i position: ); 
Readln ipasiti; 
It Iposit > long) then 

Begin 
Wnteln ("Trop loin '"'); 
E:tit; 

End; 

Write 1 longueur a détruire: '); 
Readln (det); 
Write i on sauvegarde ce qui va être oetruit: 






Nom_2. :- Copy iNom_l,posit,deti; 



Delete !Nom_l,pasit,dBt!; 

Writeln Cil reste maintenant: .Nom_ti: 



Insert lNom_2,Nam_l,posit!; 
wnteln (on retrouve ,!tam_i!; 
Write ( pour retrouver la positic 
î := Pos (Nom_2.NDfli_li; 



la chaîne détruite: 
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MUSIC PRO : 
LA BOMBE MUSICIEL 



près sa présence très remar 
quée pat les amateurs de 
musique au salon Amstrad 
Expo. Charles CALLET nous confie en 
exclusivité son logiciel MUSIC PRO. 
Après avoir allumé votre CPC (464 ou 
61 26), il vous suffit de taper ICPM puis 
de valider. Le programme se présente 
sous la forme de menus déroulants avec 
validation a partir d'une manette de jeu 
ou tout simplement à partir du clavier, 
La composition d'un morceau passa alors 
par 3 étapes : l'Ecriture/le Synthétiseur, 
l'Editeur puis le Séquenceur. 



L'ECRITURE/ 

LE SYNTHETISEUR 



Après avoir validé l'option Ecriture, vous 
vous retrouvez sous l'Editeur de musi- 
que : vous pouvez alors charger, écou- 
ter, sauvegarder ou revenir au menu prin 
cipal mais surtout accéder au 
synthétiseur. 

Il s'agît le d'une des fooetions essen- 
tielles de MUSIC PRO : la possibilité 
d'utiliser 40 sons entièrement program- 



mables aiosi que 32 enveloppes de 
volume, 32 enveloppes de ton, 32 bruits 
et 20 enveloppes de bruits. 
L'option son vous génère une page con 
tenent les 40 sans ectuellemeul en 
mémoire. Elle se compose de 2 rangées 
de 9 colonnes : n" et nom du son, n" 
de l' enveloppe de volume, flan de l'en- 
veloppe de ton... 

Le fonction paramètre vous offre une 
boîte de dialogue vous indiquant l'enve- 
loppe de volume, l'enveloppe de ton.... 
ainsi que la possibilité de réglage de tous 




ECRAN SYNTHETISEUR 



Avec cette option, vous accédez è la 
grille d'Edition avec possibilité de modi 
fier le tempo, d'écouter la musique, d'ac- 
céder aux séquences Bt ainsi de modi 
fier les notes, les soos, la durée, les 
s, le tempo. (Photo écran n° 11. 



LE SEQUENCEUR 



C'est cet outil qui va mettre bout à bout 
les séquences créées avec l'éditeur sur 
chacuoe des voix (3 au total) afin d'ob- 
tenir un morceau complet. 
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Fabienne 
•FERRER 



ECRAN PARAMETRES 




Pour cela, il vous faut chaîner les 
séquences entre elles par le biais de la 
fonction chaînage. 

Une (ois voira morceau mis au point, 
il ne vous resta plus qu'à le sauvegar- 
der. 2 tormats sont alors disponibles : 
le format MUSIC PRO : votre morceau 
ne pourra être chargé qu'après avoir 
lancé le programme MUSIC PRO ; le for- 
mat compilé : vous pourrez écouter votre 
parution directement à partir du BASIC. 
Ainsi, vous l'incorporerez sans mal dans 
vos propies Wgiciels. Il vous suffira, au 
préalable, de lancer un petit programme 
I nommé testl puis de faire appel à votre 
chef-d'œuvre. Que demander de plus I... 
Le point fort de ce logiciel reste se rapi- 
dité d'exécution, ses nombreuses pos- 




sibilités au niveau des paramètres musi 
eaux I réglage de l' et laque, le déclin, les 
enveloppes de tons de bruits et de sons, 
la noie et son octave, le relâche .) et 
le nec plus ultra étant de récupérer son 
morceau directement à partir du BASIC. 
Il faut noter que celui-ci peut contenir 
jusqu'à 2000 notes et que le séquen 
ceur permet de chaîner 120 séquences 
différentes. 

Les seuls petits points noirs consistent 
tout d'abord en l'utilisation du logiciel 
par une personne n'ayant aucune notion 
musicale puis en l'impossibilité d'impri- 
mer son travail lil faut alors passer par 
Amstradeus pour imprimer les partitions, 
la compatibilité entre Amstradeus et 
Music Pro étant compléta). 
Pour les novices. I s'avère que le manuel 
est un peu trop simple et le logiciel un 
peu trop complète. Mais de par son 
nom. MUSIC PRO n'est-il pas destiné 
aux professionnels ? 
Néanmoins, si vous n'êtes qu'un débu- 
tant, rassure; vous ce programme est 
tout de même abordable et de plus il 
existe une bibliothèque de musique ven 
due séparément et nommée JUKE 
BOX I... De quoi vous tiare rêver... 
En outre, lorsque l'on sait que c'est à 
partir de ce logiciel que tootes loo près 
que) les musiques des softs d'Infogra 
mes sont réalisées (par exemple. Les 
Passagers du vent n° 1, n" 2, Bivooac), 
il ne nous reste plus qu'à "tirer notre 
chapeau" è la société MUSIC LOGICIEL 
an lui sou h Bi tant une longue vie et en 
espérant que son illustre PDG ne s'ar 
rètere pas en si bon chemin,.. 




Stè MUSIC LOGICIEL 
79, rue Hippolyte Kahn 
69100 Villeurbanne 
Tel (16) 72.33.05 30 

Prix du logiciel : 
350 F sur disquette 
295 F 



Charles CAÏ.LET, musicien de métier, a fait ses 
débuts en informatique voilà approximativement 
18 mois. A partir d'un CPC 464 équipé d'un DDI-1, 
il a essayé de reproduire toutes sortes de sons puis 
s'est intéressé alors de très près à la programma- 
tion et sorti le logiciel "Amstradeus" en mars 1986. 
Ce programme était écrit en BASIC avec certaines 
routines en assembleur. Notre musicien se mit en tête 
de le réécrire entièrement en langage machine tout 
en le complétant et c'est ainsi que naquît MUSIC 
PRO. 
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On prétend souvent que la 
troisième dimension est un 
domeine peu accessible au 
commun des mortels. Las formules 
mathématiques et les équations néces- 
saires rebutent souvent le non- agrégé 
de sciences exactes. Vectoria 3D se pro- 
pose de permettre au plus néophyte 
d'entre voos une introduction en sou- 
plesse au monde tridimensionnel. Pour 
cela, il faut un ordinateur fonctionnant 
sous CPJM* {donc le 61281. 
Sur l'écran, on trouve 6eu< zones prin 
cipales : d'une paît, l'endroit où vont 
s'afficher les dessins, et d'autre part une 
bande réservée au menu. Ces options 
sont accessibles è l'aide d'une petite 
croix dirigée par la joystick oo par les 
flèches du curseur. 
Vous connaissez sûrement l'attrait 
qu'exercent les logiciels de dessin. Même 
si l'on ne possède pas de dons particu- 
liers, on essaye toos les outils à sa dis- 
position et l'on "grihouille". Les logiciels 
de CAO ne permettent pas ce genre de 
manipulation. Vectotia 3D. lui 
à l'apprenti "3 Diste" une certaine fan- 
taisie. Cela est dû à une entrée des don- 
nées particulière et assez astucieuse : 
l'écran de dessin est divisé en 4 par- 
ties. Le première est une vue de fece. 
la seconde une vue de coté et la troi- 
sième une vue de dessus. Le dernière 
case est réservée à la représentation en 




perspective "parallèle". Le création d'un 
objet peut se faite selon plusieurs mettra 
des : la plus spectaculaire est sans nul 
doute l'option révolution : il suffit de tra- 
cée le silhouette d'un objet par rapport 
è un axa, puis de préciser le nombre de 
répétition et l'angle total pour voir sus 
sitôt se dessiner on objet fantastique. 
Attention toutefois è ne pas utiliser un 



trop grand nombre de segments poor 
votre objet sinon la programme va créer 
des lignes parasites. Les autres possi- 
bilités de création sont toutes aussi sim- 
ples : le problème vient souvent de la 
présence de 3 coordonnées IX, Y et Z} 
pour définir le position d'un point dans 
l'espace. Vectona 30 vous propose de 
tracer votre figure (ellipse, rectangles, 







(donc possèdent 2 coordonnées) puis de 
définir la position de la coordonnée man- 
quante dans l'un des 2 autres tableaux. 
Les outils arrivent à votre rescousse 
pour obtenir des objets c 
tir de formes simples. L'élévation par 
met par exemple, de transfon 
carré en cobe. "Joint" relia deux for- 
mes semblables par un réseau de traits 
périphériques. On peut ainsi créer en 
quelques minutas des formes complexes. 
Chaque nouvelle création porte un 
numéro, ainsi vous pouvez conserver en 
une série d'objets qui seront 
plus tard disposés sur un mime écran 
grâce è la fonction scène. Je passe 
ensuite rapidement sur les fonctions de 
rotations, translations, zooms, {qui n'a 
d'ailleurs oas vtanmnt de limite supé- 
rieure c'est bien dommage pour l'effi 
chage qui riéba-air s„- es fenêtres de 
dessmsi 

"Elastique" soomet vos volumes è votre 
imagination sadique uj saura les trans- 
former en objets distendus et ca, sui- 
vant les 3 aies 

Malgré le facilité evec laquelle sont 
créés les objets, vous aurez certaine- 
ment envie de conserver vos volumes 
sur disque ou bien sur papier. Ces 
options sont accessibles. A noter que 
le recopie d'écran est assez longue et 
n'est pes essez fidèle è l'original puis- 
que les objets sont un peu aplatis. 
Vectorie 3D est un logiciel facile è uti- 
liser et possédant des c a recté ris tiques 
satisfaisantes. On peut parfois lui repro- 
cher un menque de rigueur dans la pré- 
sentation (le format des nombres! mais 
il reste un bon outil d'initiation eu monde 
de le 3' dimension. 
Nous attendons avec impatience tes 
futurs produits de le société MMC. 
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NUMERISEURS 
ROMBO 



Comment dites-vous ? Un numériseur ? Eh oui 
mon bon monsieur, c'est ainsi que l'on nomme 
cet appareil qui permet de convertir une image 
vidéo en une image traitée par votre ordinateur. Les 
numériseurs sont, pour l'instant, au nombre de. 2. Le 
plus ancien est celui destiné au CPC et a déjà fait l'ob- 
jet d'un banc d'essai. Le dernier produit en date est 
réservé au PCW, en attendant la version PC qui ne 
saurait tarder. 



La partis "hard" est enfermée dans un 
boîtier da plastique blanc pourvu da 3 
prises : l'une sa branche sur le connec- 
teur d'extension du PCW et les deux 
autres sont les prises vidéo IN et OUT 
au format CINCH. Le cordon qui est 
fourni avec le boîtier comprend donc une 
prise CINCH mâle et une prisa BNC à 
l'autre. Le BNC est un standard dans 
le domaine de le vidéo et vous ne devriez 
pss avoir de problèmes da branchement 
sut un magnétoscope, une caméra ou 
bien un caméscope. La caméra se bran- 
cha sut la prise IN et l'on peut raccor- 
der au moyen d'un cordon supplèmen- 
taira un petit poste de télévision noir 
et blanc utilisé alors comme moniteur 
de contrôle. Mais tous ces accessoires 
ne serviraient a rien sans le logiciel 
adéquat. 



Sur la disquette on trouve te programme 
de numérisation lui-même, ainsi qu'un 
des utilitaires da conversion pour las ilif 
férents formats d'images traitées par les 
programmes de PAO (Publication Assis- 
tée par Ordinateur!, en l'occurrence 
News Qesk et Flaet Street Editer. Les. 
conversions s'effectuent d'ailleurs dans 
tes deux sens. Le dernier utilitaire est 
un "Slide Show" ou en français un dé 
routeur d'images. 

Je suis certain que votre intérêt va se 
porter sur le programme principal c'est 
é-dire la numérisation. La plus grande 
partie de l'écran est réservée à l'image. 
Les dBU> lignes inférieures sont occu- 
pées par un menu concernant les corn- 
mandes disponibles selon le mode. En 
numérisation, vous avez le choit 
one-shot (h» options 
sont validées grâce aux flèches du cur- 
seur et à la touche ENTER). One-shot 
signifie image par image alors que le 
mode auto- 1 un permet une visualisation 
en temps réel au rythma d'une dizaine 
d'images par seconde. L'écran ne repré- 
sente pas la totalité de l'image mais il 
~* possible de déplacer la fenêtre afin 

itsmr un bon cadrage en hauteur et 

en lergeur. Il y a quatre niveaux de réso 

lution. Celle qui est utilisée per défaut 

de la numérisation possède 

couleurs" : le non et le Mène. Un 
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fin 



Les deux images ont été réalisées 
avec la version CPC 




autre niveau propose 4 teintes : du noir 
au blanc en passant par 2 trames. Et 
enfin, le mode le plus important com- 
prend 16 dégradés. Dans ce cas, il n'est 
plus possible de visualiser en "temps 
réel", on passe automatiquement au 
mode "Une image". Plus le nombre de 
gris augmente et plus il est nécessaire 
d'avoir une image stable et surtout bien 
éclairée. A cet etfet, si vous utilisez une 
caméra, il est préférable de la fixer sur 
un pied pour éviter tout mouvement in- 
tempestif. Votre image est prête ? Il ne 
reste plus qu'à le sauver. Vous avaz la 
possibilité de ne conserver qu'une par- 
tie de l'écran en définissant une fene 
ire {pour une utilisation ultérieure en 
PAO par exemple). Les fenêtres peuvent 
être manipulées par inversion Iles points 
noirs deviennent blancs et réciproque- 
ment!, par déroulement (ou scrollingl ci 
ainsi qu'avec une loupe permettant le 
1 rêva il au pixel prés. 
La fenêtre étant définie, elle est utili- 
sés ensuite, si bon vous semble, comme 
cadre de visualisation lors de la numén 
satin n. 

L'ajout de lettres de tailles diverses per 
met d'agrémenter vos dessins d'une lé- 
gende ou d'un petit texte. 
L'imprimante peut à présent entrer en 
fonction. Elle accepte de travailler en 
double frappe ou bien en vertical (ceci 
dépend de l'orientation du dessin sur 
l'écran). Les meilleurs résultats sont 
obtenus on mode 16 "couleurs" les dif- 
férentes trames donnant un aspect plus 
réaliste qu'en mode 2. 
Le oarnier programma est un utilitaire 
permettant de dérouler un véritable 
"show" sous les yeux éblouis de vos 
admirateurs oo admiratrices. Chaqoe 
image présente sur la disquette peut se 
voir attribuer une lettre d'ordre de A à 
W ainsi qu'une durée d'affichage et on 
ordre d'effacement ou non de l'écran {en 
ces de superposition de fenêtres sur une 
image principalel. La dernière lettre X 
est réservée au chaînage evec un autre 
"slide-show". 

Le numériseur de Rumba productions 
apparaît donc comme un bon appareil 
doté d'un logiciel supérieur, même à la 
version CPC, au vu du nombre d'options. 
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A LA DECOUVERTE 
DE LA VIE 



Dans le domaine éducatif, il faut reconnaître que las 
sujets qui sunt les plus sauvent traités sont le fran 
çais ou les mathématiques. Avec ce logiciel, Coktel 
Vision proposa, aux élevas de 6" et de 5', la décou- 
verte de toute la biologie animale et végétale. En sui- 
vant une promenade dans différents milieux naturels, 
l'enfant peut étudier les animaux et les végétaux en 
observant leur mode dB nutrition, de reproduction «ai 
que I but système de respiration ou de locomotion... 
Faisons un rapide survol de tous les points présen- 
tés dans ce logiciel afin que vous puissiez apprécier 
l'intérêt qu'il peut apporter au jeune. 
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Lorsque vous regardez la page de présentation et que 
vous lisez les têtes de rubriques (A la ferme, Dans 
la foret, Au jardin et A la mari, vous avez un peu 
peur d'avoir devant les veux un éducatif qui s'adres 
serait é des élèves primaires. Mais, heureusement, 
vous allez découvrir rapidement que le contenu de 
chaque page et leur présentation sont à la fois cap- 
tivants et instructifs... Ainsi, dans la première pai ■ 
lie, vous pouvez tout apprendre sur la naissance et 
le développement de la grenouille, le phénomène de 
la digestion chez la vache, tout sur la poule sans qui 
le ferme n'existerait pas et, pour terminer, l'étude 





d'un mammifère rongeur qui a une reproduction sem- 
blable è celle des vivipares, j'ai nommé : la souris... 
Il faut noter qu'il y a alternance de textes explica 
tifs, avec des mots soulignés qui peuvent être plus 
largement expliqués en faisant appel à un diction 
naire, avec des dessins et leurs légendes et même 
des animations graphiques (pour la digestion de la 
vache par exemple.. .1. Chaque section est bien 
entendu complétée par des exercices. 

La deuxième partie s'intéressa plus particulièrement 
à la forêt et, pour commencer, à l'élément principal 
et indispensable à toute forme de vie : l'oxygène ce 
qui amena l'explication de la photosynthèse. Vien 
nent ensuite l'étude des champignons et de la fou 
rjère ; pour terminer cette partie, il faut bien entendu 
tenir compte des prédateurs tels que la vipère. 
G'est alors que nous entamons la troisième partie 
qui sa passe au jardin et nous fait découvrir toute 
la via d'un escargot, la naissance et la vie du hari- 
cot (en animation graphique) et. pour terminer, l'ex- 
plication de tout le phénomène de pollinisation per- 
mettant dB passer da la fleur au fruit. Les investi 
gâtions étant terminées dans l'air et sur la terre, il 
reste encore l'élément marin à considérer avec l'étude 
approfondie des trois éléments suivants ; le fucus, 
la moule et le crabe,. 



A la découverte de la vie a l'avantage de pouvoir 
être utilisé aussi bien en classe que chez soi ; de plus, 
il fait participer le jeune de façon activa. Somme 
toute, ce logiciel peut permettre d'obtenir de bonnes 
bases pour le programme de sciences ne to relies des 
classes de 6' et 5'... 
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Western games 

magic &ytes 
infogrames 

Arcade 

Attention, étranger ! Si tu oses 
passer le panneau d'entrée de cette 
ville, tu dais t'attendra à suppor- 
ter quelques petites épreuves que 
nous autres, dans l'Ouest, nous 
nous sommes amusés à mettre au 




En tout, il v a six épreuves à 
accomplir sachant que le seul et 
unique adversaire se nomme Mac- 
Slow et sachant encore que le 
moins que l'on puisse dire c'est que 
les épreuves ne sont pas "piquées 
des hannetons" ! Jugez plutôt par 
vous-même : après vous être mis 
en condition par un bras de fer, 
vous testez votre habileté par un 
tir à la bière et en crachant la chi- 
que ; il vous reste alors à montrer 



votre élégance par une petite 
danse, votre savoir-faire par la 
traite des vaches et, pour terminer, 
votre capacité à assurer une 
campé tition-bouffa... 

Sachez que ce programme est 
réjouissant, amusant et qu'il se 
déroule dans un cadre où le gra- 
phisme est agréable et très coloré... 
Alors, laissez-vous tenter par une 
petite virée a l'Ouest ! 




L'ANGE 
DE CRISTAL 



ERE INFORMATIQUE 

Arcadel Aventure 

Le titre en lui-même ne vous dit 
rien... par contre si je vous dis que 
le sous-titre peut être Crafton et 
Xunk 2, alors là je vois des oreil- 
les intéressées qui se dressent !... 



Ainsi donc, après avoir brillamment 
réalisé sa mission sur XUL-3, Craf- 
ton (androïde ultra-perfectionné) va 
devoir à nouveau exercer ses 
talents (en compagnie de son insé- 
parable podDcéphale Xunk.J sur la 
planète Kef. La situation sur Kef 
est très critique ; jugez-en plutôt 
par vous-même : une nouvelle secte 
religieuse est née autour d'Antinès, 
construction mystérieuse enfouie à 
flanc de montagne. Elle est jalou- 
sement rendue inaccessible par les 
Stiffiens qui sont en quelque sorte 





les "têtes pensantes" de la pla- 
nète... par opposition aux Swapis 
qui sont désordonnés et qui affec- 
tionnent particulièrement le troc... 
Aussi pour percer le secret d'Anti- 
nès, Crafton va devoir s'assurer la 
confiance des Swapis (qui peuvent 
l'aider à pénétrer dans la construc- 
tion) en effectuant trois de leurs 
souhaits comme, par exemple, trou- 
ver la solution à cette éternelle 
question : "Quelles sont nos origi- 
nes ?"... Les trois souhaits étant 



exaucés. Crafton et Xunk pourront 
enfin pénétrer dans Aminés et 
lorsqu'ils auront touché les 5 pier- 
res dans le bon ordre, ils auront 
enfin la "révélation"... 
Cette seconde aventure de Crafton 
nous replonge dans le même gra- 
phisme 3D que la première édition, 
très coloré et très fourni Ipeut-être 
un peu trop d'ailleurs...!. Une chose 
est sûre : si vous avez aimé le pre- 
mier épisode, vous serez satisfait 
par la suite... 
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JRYZOR 

OCEAN 
Arcade 

Si l'on cherche une analogie ciné- 
matographique avec ce logiciel, on 
trouvera bien des points communs 
avec Prédator. Même héros mus 
culeux, mêmes adversaires extra 
terrestres, et surtout même action 
trépidante : voyons un peu les faits 
(du nouvel an). Une race extra- 
terrestre les Durrs (authentique I) 



veut s'installer sur Terre contre la 
volonté des indigènes. Pour cela 
une base secrète a été installée 
dans un coin perdu. Vous, Lance 
Gryzor armé d'un fusil à photons 
ionisés (Eh oui, que voulez-vous on 
n'arrête pas le progrès) devez 
détruire et casser de l'Alien avant 
que celui-ci ne fasse entrer la Terre 
dans une nouvelle ère glaciaire 
grâce à des machines dont la corn 
plexité peut laisser pantois 
d'admiration. 

Gryzor lui, ne se pose pas beaucoup 
de questions. De toutes façons il 
n'a pas la tête à ça (au propre 
comme au figuré). Notre héros est 
littéralement parachuté sur les lieux 
de l'action. 

Dès lors celle-ci va se résumer à 
une destruction en règle de tout ce 
qui bouge (ou qui ne bouge pas 



d'ailleurs). La première partie vous 
propose un parcours du combattant 
très dangereux pour votre santé. 
Ensuite il faudra pénétrer dans la 
bese des vilains. Ici même pro- 
gramme : on casse tout le plus rapi- 
dement possible. Puis dernière 
épreuve: la destruction de la 



machine è geler l'atmosphère. Bref 
rien de bien original dans ce jeu. 
En revanche les graphismes et l'ani- 
mation ont été très bien réalisés. 
Cala compense un peu l'intérêt 
médiocre du jeu. Donc à réserver 
en priorité aux ; 
joysticks. 




Peur 

sur amityville 

ua/ SOFT 

Aventure 

Lorsque les époux Plutz ont emmé- 
nagé dans leur nouvelle maison, ils 
savaient bien qu'un pauvre fou 
avait tué toute sa famille un an 
auparavant dans cette même de- 
meure mais cet état de fait ne les 
t pas plus que cela. 



Et pourtant, ils auraient dû se 
méfier I Etait-ce normal de ressentir 
cette soif an pénétrant dans la mai- 
son ? Etait-ce normal de trouver un 
doigt coincé dans le robinet de 
l'évier ? Etait-ce normal d'entendre 
un horrible hurlement lorsque ce 
doigt fut coupé ? Je ne dévoilerai 
pas plus toutes les bizarreries 
inquiétantes se trouvant dans cette 
maison ; mais sachez qu'il peut se 
passer bien des choses dans ces 
G pièces plus la cave qui 



sent la bâtisse. 

L'aventure en elle-même semble 
très accessible (même aux débu- 
tants...!. L'utilisation du vocabulaire 
est simple puisque les mots sont di- 
rectement présents à l'écran ; par 
contre, le sujet n'est pas des plus 
nouveaux (il y a eu des précédents) 
mais l'atmosphère inquiétante de la 
situation est bien rendue par ce 
logiciel dans lequel vous devez évo- 
luer pendant dix jours tout en 
sachant qu'il y a des actions bien 




précises dans des endroits bien pré- 
cis à effectuer impérativement sous 
peine de mort. 
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IZNOGOUD 

INFOGRAMES 
A rcadelA venture 

En ce tout début d'année, i 
propose de vous mettre d 



peau d'un personnage qui risque de 
vous en faire voir de toutes les cou- 
leurs : j'ai nommé Iznogoud ! Vous 
n'avez plus alors qu'un seul et uni 
que but : "devenir calife a la place 
du calife" dans cette ville merveil 
leuse qu'est Bagdad la Magnifique ' 





Mais malheureusement pour vous, 
vous n'avez pas le meilleur râle 
puur être vainqueur dans votre 
entreprise cer, quoique vous 
essayiez, cela se retourne toujours 
contre vous... 



Iznogoud sur micro a bien sur le 
même esprit que la B.D. Il va donc 
falloir tout à tour menacer, se met- 
tre en colère, amadouer ou même 
donner (eh oui, Iznogoud doit aussi 



taire cette action de temps en 
temps...]. L'originalité du logiciel 
réside dans le fait que l'aventure 
est entièrement graphique : par 
contre, il est dommage de consta 
ter que certains personnages ne 
sont pas trop réussis (surtout 
lorsqu'ils se déplacent l|. Un der- 
nier point à noter : vous trouverez 
dans le packaging non seulement 
le logiciel, mais également une B.D. 
s'intitulant "L'anniversaire d'Izno- 
goud". 



ISEFLEKTOR 

GREMUN GRAPHICS 
Réflexion IA rcade 



Que diriez-vous de vivre un logiciel 
d'un nouveau genre où il n'y a ni 
héros, ni adversaire ? En effet, 
Dellektur est une expérience en 
logique laser, ce qui signifie que 
chaque nouvel écran est un circuit 
optique à compléter. 




Voici comment les opérations peu- 
vent se dérouler : vous disposez 
d'un rayon laser et vous devez uti- 
liser tous les objets qui sont à votre 
disposition pour atteindre le récep- 
teur. Les objets qui vont vous aider 
(ou vous poser des problèmes) pour 
atteindre votre but sont les sui- 
vants : des miroirs que vous pou- 
vez orienter à votre convenance, 
des blocs qui se révèlent absor- 
bants ou réflecteurs, de même que 
des poleriseurs... Seulement, il faut 
faire attention car il existe des 
situations de surcharge qu'il faut 
absolument éviter : ce sont la 
réflexion totale (qui surchauffe le 
rayon), la surextension (due à une 
longueur trop grande du rayon) ou 
l'alerte à la mine (lorsque le laser 
heurte une mine}. 




Rassurez-vous, si vous trouvez tout 
cela un peu compliqué, vous avez 
la possibilité de vous entraîner avec 
une vitesse de perte d'énergie très 
lente et sans aucun risque de sur- 
charge... Vous aurez besoin de 
cette séance car, dans les niveaux 
plus élevés, vous vous trouvez con- 



fronté aux diablotins qui vous "chi- 
pent" votre rayon et le font vaga- 
bonder è leur convenance I 
Tout è fait original, ce logiciel 
séduira tous ceux qui sont avides 
de "technologie" et de reflexion 
pour obtenir la meilleure réflexion 
possible ! 
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Vous n'êtes sûrement pas sans 
connaître les maîtres de l'univers 
car, en effet, si vous n'êtes pas au 
courant, vos chères petites têtes 
blondes sont là pour vous en par- 
ler... Mais connaissez-vous Brave- 
starr ? C'est le dernier dessin 
animé produit pour remplacer les 
maîtres de l'univers. 



Comme il est maintenant de bon 
ton d'adapter sur les micros les 
vedettes de dessin animé, vous 
êtes donc convié à devenir le Mar- 
shall Bravestarr, sans peur et sans 
reproche... 



Le problème est simple : Fort 
Kenum est une ville excitant bien 
des convoitises , c'est pourquoi Tex 
Hex est venu traîner ses bottes de 
caw-boy malfaisant dans le coin. 
Stimulé par le mauvais esprit Stam- 
pede, il s'est emparé de Shamen 
(vieil indien ami de Bravestarr) qui 
détient une formule magique dont 
il a absolument besoin. Il ne reste 
donc plus au Marshall qu'à abat- 
tre tous les hommes de Tex Hex 
et à se procurer toutes les infor- 
mations nécessaires à la libération 
de Shamen, quitte, s'il le faut, à 
soudoyer des sombres personnages 
hantant les bars louches... Pour 
cette mission, Bravestarr dispose 
très exactement de neuf jours ! 
Le logiciel possède un graphisme 
très coloré lié à une animation pré- 
sentant un scrolling relativement 
agréable soit un bon moment de 
détente... 





Lorsque vous vous augnez pour le 
départ, vous êtes tellement concen- 
tré que vous ne remarquez même 
pas la neige qui "orne" tout le cir 
cuit nord !... Vous n'avez qu'une 
seule pensée en tète : parcourir le 
plus rapidement passible les 5 tron 
cons qui composent la piste et pou- 
voir grignoter le maximum de bonus 
de temps. 

Seulement, vous n'étiez pas tout a 
fait préparé à de si nombreuses 
embûches I En effet, lancé à pleine 
vitesse, vous devez habilement sla- 
lomer entre de grosses pierres, des 
murs ou des barrières ; de plus, si 
vous passez sur une souche d'ar- 
bre vous effectuez un vol plané (oui 
peut se révéler utile pour dépasser 



certains obstacles! ou si vous ne 
pouvez éviter les petits rochers, 
vous vous transformez en casca- 
deur car vous continuez votre 
course sur 2 roues ! Bref, au volant 
de votre buggy, vous êtes sous ten- 
sion perpétuelle d'autant plus qu'il 
vous faut en plus ramasser des 
fanions et des bonus de points... 

Cette adaptation de jeu de café est 
une réussite sur CPC : vous avez 
la difficulté et la vitesse sur les 5 
circuits qui vous sont proposés ; le 
graphisme est agréable et l'anima- 
tion fort correcte alors n'hésitez 
pas à devenir roi du buggy. 
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BONNE ANNEE 



Le programme ASTRONOMIE PLANETAIRE (CPC 
n° 29) a intéressé, et intéresse encore, beaucoup 
de lecteurs de CPC. Serge Poyet de Besançon nous 
fait quelques remarques au sujet des années bissex- 
tiles, le programme (ligne 4620) considérant que 
celles-ci reviennent tous les quatre ans. 
Dans le calendrier julien, abandonné le jeudi 4 octo- 
bre 1582, on trouvait une année bissextile tous les 
quatre ans, y compris les années séculaires. Dans le 
calendrier grégorien (le nôtre) utilisé depuis le ven- 
dredi 15 octobre 1582 -vieillir de 11 jours en une 
nuit i - toutes les années divisibles par 4 sont bis- 
sextiles maïs les années séculaires ne le sont pas, 
sauf si elles sont divisibles par 400. 
Voici la petite modification qui s'impose : 
4620 IF(JJ>29 AND MM = 2) OR (JJ>28 AND 
MM = 2 AND AA MOD 4< >0) OR (JJ>28 AND 
MM = 2 AND AA MOD 400< >0) THEN 4790 
Nous aurons donc le rare avantage de bénéficier 
d'une année séculaire et néanmoins bissextile dans 
quelques années. En 2000. 

PIP, PIP, PIP... 

"Piper" un fichier avec PIP.COM sous CP/M+ et 
une seule unité de disque, c'est pas possible ? Mais 
si I II suffit de simuler la seconde unité. 
Voici la méthode employée par N. Kieffer de 
Benfeld : 

— Lancer CP/M + 

— Activer PIP.COM et placer la disquette contenant 
le fichier à copier. 

— Entrer B: = Amomfich.ext, et le micro lit le fichier 
puis déclare l'unité A comme étant l'unité B. On 
introduit alors la disquette cible, et la copie 
s'exécute. 

Pour effectuer une seconde copie, il suffit d'ôter la 
disquette cible, de replacer la disquette d'origine, 
d'entrer l'instruction A: = B:nomfich.ext, et l'opéra- 
tion s'exécute à nouveau avec inversion des unités 
due à la simulation I 

COMPTE BANCAIRE 



Le programme GESTION DE COMPTE BANCAIRE 
de Georges NARETTO (CPC n° 18) a suscité un 
courrier important et l'auteur nous fait part de quel- 
ques modifications. 

La ligne 2070 fait apparaître le solde de cette 
façon : 1000,000001. La solution réside dans un 
PRINTUSING " ttitttliti. tt#". 



2070 IF SQLDEvO THEN L0CA1F 25, 13: PRINT" 
SOLDE DEBITEUR) "i aPRINT USINB" 
#*###. 4ttt"j SOLDE; : FRIWT "Francs" ELBE 
LâOATE 25,13iPRINT"B0LDÊ CREDITEUR! 1 
! SPRINT USING"#«*t##.*Ht"î SOLDE J s 
PRlNr"Francs" 

Entre les lignes 1580 et 1590 on peut ajouter quel- 
ques lignes qui permettront d'imprimer le fichier 
amortissement avant sa sauvegarde définitive sur la 
disquette. 



1560 D:t(OP)=""sSV=Afl:GQSIJB 2100: AA=SVi 

IF AA-20G THEN GOSUB 15B2 ELSE 15B0 

1570 NEXT 

1580 RETURN 

15B2 CLSsLOCATE 4 , lus PRIN1 "FICHIER 

AMORTISSEMENT PLEIN" : LOOATE fe,10s 
PRINT" Impression sur i mpr i mante 7" 

1584 WHILE A*0-"Q" AND A*0"N" s M-INKEY* : 
WEND 

15B6 IF A*="N" THEN GOSUB 1590sGOT0 15BO 

15B8 M*^"AM0RTISSEMENT":D'=l5DIM I*(200): 
GOSUB 2250iG0SUB 2270sERABE I*s 
GOSUB 1590sG0TO 1580 

1590 '9PRG MISE EN FICHIER 

1600 FICH*=LEFT*<DA*f 1) ,4> 

1610 OPENOUT FICH* 

1620 PR I mm , Dft* ( I ) +DA* { 200 ) 

1630 FDR K=l TD 200 

1640 PRÏNT#9,P*<K) 

1650 NEXT 

1660 CLOSEOUT 

1670 AA=0:ERASE F'isDIM P*(201) 

16BO RETURN 



Pour vous permettre de visi 
tissement sauvegardé, entre 



îliser un fichier am 
: ces lignes : 



5000 


D I'M I * ( 200 ) , Dft* ( 20' 


}) ,P*( 


201 


) 




5005 


CLS: INPUr'Nom du f : 
visualiser-'sA* 


ichler 


à 






50 1 


OPENIN A* 










5020 


1 = 1: INPUT4t9,DA*(l> 










3030 


WHILE NOT EOF 










5040 


INPUTH9,P*<I) 










5050 


1 = 1 + 1 s WGND 










5060 


D=lsAA=I-l! 1 = 1 fDA* 


<AA)=R 


IGh 


1T# 


IDA* 




<1) ,6) sDA:î(l)=LEFT*(DA*( 


*> » 


6)i 






GOSUB 2730: GOSUB 23 


Ï70 








5070 


CLSsPRINT"FIN D"EDITION" 









Une fois le programme principal chargé par LOAD, 
entrez RUN 5000, puis le nom du fichier à impri- 
mer. Pour un affichage sans impression (tout le 
monde ne dispose pas d'une imprimante), rajoutez 
en début ligne 5000, C = 2. 

"Pour avoir les bornes correctes du fichier amortis- 
sement, remplacez en ligne 2250 les DA$(OP) par 
DAS(AA). Enfin, pour éviter tout problème, rempla- 
cez en ligne 90 DIM P$(200) par DIM P${201). 
Voilà un problème réglé. N'écrivez plus ! 

RESTAURATION 

Jean-Charles BATTIN de Nantes possède un CPC 
664 et il aime en restructurer la mémoire. Voici com- 
ment il s'y prend. 

10 PRINT HIMEM 

20 SYMBOL AFTER 256 

30 MEMORY 40000 

40OPENOUT"BIDON" 

50 MEMORY 30000 

60 SYMBOL AFTER 130 

70 MEMORY 20000 

80 STOP 'ou CLOSEOUT 

90 REM nettoie la mémoire 
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100 MEMORY PEEK(46902) + 256*PEEK(46903) 

-1 

110 SYMBOL AFTER 256 

1 20 MEMORY PEEK(44640) + 256*PEEK{44641) 

130 SYMBOL AFTER 240 

140 PRINT HIMEM 

Après RESET, lancer le programme par RUN. 
Après le BREAK, le terminer par RUN 100 (RUN 
ou CLOSEOUT, choisissez). Cette réorganisation de 
la mémoire est valable sur CPC 6128 également. 

DEUX 5' 1/4 SUR 664 OU 6128 

Heddy MENTALECHETA nous avait indiqué com- 
ment rendre une unité 5' 1 /4 maîtresse (CPC n° 1 9), 
Franck MALMANCHE d'Angers s'en inspire et nous 
offre la possibilité d'utiliser une unité 5' 1 /4 de plus, 
toutes les combinaisons d'unité maîtresse étant ren- 
dues possibles par le jeu d'un commutateur à deux 
circuits et à quatre positions qu'il place sur le des- 
sus du micro, au-dessus de la' prise de la seconde 
unité. Cette bidouille est parfaitement fiable. Huit 
6128 et un 664 fonctionnent avec deux unités 5' 1/4. 
Est-il besoin de préciser que cette bidouille demande 
le plus grand soin ? Si vous doutez de vous, 
abstenez-vous ! 



Positions du sélecteur de lecteurs 



ie H 



9\ S 'M [ 3P | POS ItOMI >w«icl HOMnl» 

30 E — - 

40 B — 
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TIONSELECT— ► 18 f 

srep » x>\ 

mOKTA » Î2 j 

n-EflATE .> W 

n*MK8 *■ » 1 

T-mmai—* a 

ABBATA — ► 30 1 
NUTILISE 3! j 


il Bit 




